home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 1752.ZIP / MHD.ZIP / MHSRCLIN.PRG < prev    next >
Text File  |  1986-07-13  |  3KB  |  96 lines
  1. * MHSRCLINIC    DB3 PLUS                 REVISION 07/13/86
  2. *
  3. * Search for clinical data
  4. *
  5. CLOSE DATABASES
  6. choice2 = 0
  7. repeat = .T.
  8. DELETE FILE MHWORK1.DBF
  9. USE MHWORK
  10. COPY STRUCTURE TO MHWORK1
  11. STORE 'clin_data' TO field
  12. DO WHILE repeat
  13.    CLEAR
  14.    ? 'MENU TO SELECT ANTIMICROBIAL DRUG ACCORDING TO'
  15.    ? 'CLINICAL CRITERIA OR SPECIAL CHARACTERISTICS'
  16.    ? '   1. Free form selection          8. Sexually transmitted disease'
  17.    ? '   2. UTI                          9. Acute PID and salpingitis'
  18.    ? '   3. Prophylaxis                 10.'                    
  19.    ? '   4. Teratogenic                 11 '                   
  20.    ? '   5. Synergism                   12.'                   
  21.    ? '   6. Resistance                  13.'
  22.    ? '   7. Combination therapy         14.'
  23.    ACCEPT 'Enter the number of your choice: ' TO choice
  24.    STORE VAL(choice) TO choice2
  25.    * Limit choice to numbers between 1 and 9
  26.    IF choice2 >= 1 .AND. choice2 <= 9
  27.       STORE .F. TO repeat
  28.    ENDIF choice2 >= 1 AND <= 9
  29. ENDDO WHILE repeat
  30. DO CASE
  31.    CASE choice2 = 1
  32.       ? 'You may enter a search string using dBASE II conventions,'
  33.       ? 'with each term enclosed in single quotes followed by $clin_data'
  34.       ACCEPT 'Enter string: ' TO search 
  35.    CASE choice2 = 2
  36.       STORE 'UTI' TO search 
  37.    CASE choice2 = 3
  38.       STORE 'prophylaxis' TO search 
  39.    CASE choice2 = 4
  40.       STORE 'teratogenic' TO search 
  41.    CASE choice2 = 5
  42.       STORE 'synergi' TO search
  43.    CASE choice2 = 6
  44.       STORE 'resist' TO search 
  45.    CASE choice2 = 7
  46.       STORE 'combination' TO search
  47.    CASE choice2 = 8
  48.      STORE 'STD' TO search
  49.    CASE choice2 = 9
  50.      STORE 'PID' TO search
  51. ENDCASE
  52. ? 'Searching database for antimicrobials for: '
  53. IF search2
  54.    ? combsrch + ' and ' + search
  55. ENDIF search2
  56. IF .NOT. search2
  57.    ? search
  58. ENDIF NOT search2
  59. * Select data in MHCLINIC.DBF or MHCOMBIN.DBF and store in MHWORK1
  60. SELECT B
  61. USE MHWORK1
  62. SELECT A
  63. USE &datafile
  64. * Match free form search string with data in field
  65. IF STR(choice2,1) = '1'
  66.    DO WHILE .NOT. EOF()
  67.       IF &search
  68.          STORE DRUG_ID TO mdrug_id
  69.          * Store matching drug:id in temporary WORK1
  70.          SELECT MHWORK1
  71.          APPEND BLANK
  72.          REPLACE DRUG_ID WITH mdrug_id
  73.          SELECT &datafile
  74.       ENDIF &search
  75.       SKIP
  76.    ENDDO WHILE NOT EOF
  77. ENDIF STR(choice2,1) = '1'
  78. * Match menu-chosen search string with data in field 
  79. IF STR(choice2,1) <> '1' 
  80.    DO WHILE .NOT. EOF()
  81.       IF '&search' $&field
  82.          STORE DRUG_ID TO mdrug_id
  83.          * Store matching drug:id in temporary WORK1 
  84.          SELECT MHWORK1
  85.          APPEND BLANK
  86.          REPLACE DRUG_ID WITH mdrug_id
  87.          SELECT &datafile
  88.       ENDIF '&search' $&field
  89.       SKIP
  90.    ENDDO WHILE NOT EOF
  91. ENDIF STR(choice2,1) <> '1' 
  92. choice = '2'
  93. repeat = .T.
  94. RETURN
  95.  
  96.